﻿Public Class AccordionTab

    Private intModuleID As Integer
    Private intItemID As Integer
    Private strTitleOfTab As String
    Private strContentOfTab As String
    Private boolIsVisible As Boolean
    Private intSortOrder As Integer

    Public Property ModuleID As Integer
        Get
            Try
                Return intModuleID
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
                Return 0
            End Try
        End Get
        Set(value As Integer)
            Try
                intModuleID = value
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
            End Try
        End Set
    End Property

    Public Property ItemID As Integer
        Get
            Try
                Return intItemID
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
                Return 0
            End Try
        End Get
        Set(value As Integer)
            Try
                intItemID = value
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
            End Try
        End Set
    End Property

    Public Property TitleOfTab As String
        Get
            Try
                Return strTitleOfTab
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
                Return ""
            End Try
        End Get
        Set(value As String)
            Try
                strTitleOfTab = value
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
            End Try
        End Set
    End Property

    Public Property ContentOfTab As String
        Get
            Try
                Return strContentOfTab
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
                Return ""
            End Try
        End Get
        Set(value As String)
            Try
                strContentOfTab = value
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
            End Try
        End Set
    End Property

    Public Property IsVisible As Boolean
        Get
            Try
                Return boolIsVisible
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
                'WARNING: By Default the IsVisible variable will return TRUE!
                '
                Return True
            End Try
        End Get
        Set(value As Boolean)
            Try
                boolIsVisible = value
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
            End Try
        End Set
    End Property

    Public Property SortOrder As Integer
        Get
            Try
                Return intSortOrder
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
                Return 0
            End Try
        End Get
        Set(value As Integer)
            Try
                intSortOrder = value
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
            End Try
        End Set
    End Property

End Class
